-- card: 4011 from stack: in
-- bmap block id: 4539
-- flags: 0000
-- background id: 2617
-- name: More Talk Tools


-- part 1 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=15 top=62 right=320 bottom=84
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
On MouseEnter
  global text
  put card field 1 into text
  talk text, 190, 100
  pass MouseEnter
End MouseEnter


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=370 top=277 right=297 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Say It Now.
----- HyperTalk script -----
on mouseUp
  Talk card field speak, card field rate, card field pitch
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=95 right=115 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 26020 / 26020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pitch up.
----- HyperTalk script -----
on mouseUp
  add 10 to card field pitch
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=140 right=160 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 26020 / 26020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rate up.
----- HyperTalk script -----
on mouseUp
  add 10 to card field rate
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=346 top=117 right=135 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 15279 / 15279
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pitch down.
----- HyperTalk script -----
on mouseUp
  subtract 10 from card field pitch
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=162 right=179 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 15279 / 15279
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rate down
----- HyperTalk script -----
on mouseUp
  subtract 10 from card field rate
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=371 top=99 right=134 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Pitch


-- part 10 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=371 top=143 right=178 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Rate


-- part 11 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=335 top=179 right=276 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: speak


-- part 13 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=94 top=63 right=320 bottom=325
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy XCMD


-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=149 top=291 right=316 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ResCopy Mover
----- HyperTalk script -----
on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  put "NAUGC Hyper#14 (BMUG):Talking Tools" into sourceStack
  put the long name of this stack into destStack
  delete first word of destStack
  delete first character of destStack
  delete last character of destStack
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    push this card
    go stack sourceStack
    ResCopy sourceStack,destStack,"XCMD","ResCopy"
    get the result
    ResCopy sourceStack,destStack,"XCMD","Talk"
    -- here is where you would copy more resources.
    pop card
    choose button tool
    click at location of card button "ResCopy Mover"
    domenu clear button
    choose browse tool
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      -- you could put better error handling here
      put it into the message box
    end if
  end if
end mouseUp




-- part contents for card part 1
----- text -----
To make this text speak, just pass the cursor through this field. You don't need to click.

-- part contents for card part 8
----- text -----
150

-- part contents for card part 10
----- text -----
150

-- part contents for card part 11
----- text -----
Use these above controls to change the sound of this text.


-- part contents for background part 6
----- text -----
More Talk Tools

-- part contents for card part 13
----- text -----
"How can I make MY stacks talk?" HyperCard uses an external command (XCMD) resource called   "Talk" to access the MacinTalk driver (which must be in your system folder).  Its format is:
Talk <text>, <rate>, <pitch>.  There are two ways to move this XCMD to your home stack.  One way is to use ResEdit.  A simpler way is to use this ResCopy Mover button.  Just COPY and PASTE it into your home stack, then click it.  It'll make the transfer, then go away.